home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS074.dsk / SAVE A SKETCH.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  83 lines
  1. 10  HOME 
  2. 15 S = 12
  3. 20  FOR X = 10 TO 15
  4. 22  VTAB (S)
  5. 25  PRINT  TAB( X)"SAVE A SKETCH "
  6. 30 S = S +1
  7. 35  FOR T = 1 TO 500: NEXT 
  8. 36  VTAB (S -1): PRINT  TAB( X)"                    "
  9. 40  NEXT X
  10. 50  HOME 
  11. 60  SPEED= 150
  12. 70  PRINT "WHICH FUNCTION ?"
  13. 80  PRINT " "
  14. 90  PRINT "1    DRAW "
  15. 100  PRINT "2    DRAW THEN SAVE "
  16. 110  PRINT "3    LOAD A DRAWING"
  17. 120  INPUT F
  18. 125  IF F = 3  THEN 5000
  19. 130  VTAB (10)
  20. 140  PRINT "DO YOU WANT TO USE THE PADDLES OR THE   KEYBOARD TO DRAW THE PICTURE"
  21. 150  INPUT F$
  22. 160  HOME 
  23. 180  PRINT "INSTRUCTIONS FOR SAVING A PICTURE"
  24. 185  PRINT " "
  25. 187  IF F$ = "KEYBOARD"  OR F$ = "K"  THEN 200
  26. 188  PRINT "USING PADDLES"
  27. 189  PRINT " "
  28. 190  PRINT "PUSH THE BUTTON ON THE VERTICAL PADDLE  TO NOT PLOT AND PUSH THE BUTTON ON THE  HORIZONTAL PADDLE WHEN FINESHED DRAWING"
  29. 195  GOTO 300
  30. 200  PRINT "USING KEYBOARD"
  31. 205  PRINT " "
  32. 207  PRINT "TYPE"
  33. 210  PRINT "D  TO MOVE POINT DOWN ONE SPACE"
  34. 220  PRINT "U  TO MOVE POINT UP ONE SPACE"
  35. 230  PRINT "R  TO MOVE POINT RIGHT ONE SPACE"
  36. 235  PRINT "L  TO MOVE POINT LEFT ONE SPACE"
  37. 240  PRINT "N  FOR NO PLOTING ON THE SCREEN         Y  TO START PLOTING AGAIN"
  38. 245  PRINT "S  WHEN FINISHED DRAWING"
  39. 300  PRINT : PRINT : PRINT : PRINT 
  40. 310  PRINT "AFTER YOU FINISHED THE DRAWING THERE    WILL BE INSTRUCTIONS ON HOW TO SAVE THE PICTURE"
  41. 320  HOME 
  42. 330  HGR2 
  43. 340  COLOR= 3
  44. 350  IF F$ = "KEYBOARD"  OR F$ = "K"  THEN 2000
  45. 370 X1 =  INT( PDL(0) *1.085)
  46. 380  IF  PEEK(0 -16287) >127  THEN :CO = 1
  47. 390  FOR X = 1 TO 10: NEXT 
  48. 400 Y1 =  INT( PDL(1) *.74)
  49. 410  IF  PEEK(1 -16287) >127  THEN 10000
  50. 420  IF CO = 1  THEN : HCOLOR= 0
  51. 430  HPLOT X1,Y1
  52. 440 CO = 0: HCOLOR= 3
  53. 450  GOTO 370
  54. 2000  GET C$
  55. 2005  IF C$ = "S"  THEN 10000
  56. 2010  IF C$ = "R"  THEN X1 = X1 +1
  57. 2020  IF C$ = "L"  THEN X1 = X1 -1
  58. 2030  IF C$ = "U"  THEN Y1 = Y1 -1
  59. 2040  IF C$ = "D"  THEN Y1 = Y1 +1
  60. 2050  IF C$ = "N"  THEN  HCOLOR= 0
  61. 2060  IF C$ = "Y"  THEN  HCOLOR= 3
  62. 2080  IF X1 <1  OR X1 >278  THEN 2000
  63. 2090  IF Y1 <1  OR Y1 >190  THEN 2000
  64. 2100  HPLOT X1,Y1
  65. 2110  GOTO 2000
  66. 5000  HOME 
  67. 5010  PRINT "TO LOAD A PICTURE TYPE "
  68. 5020  PRINT " "
  69. 5030  PRINT "* C050 C052 C054 C057 2000.3FFFR
  70. 5040  PRINT " THEN HIT RETURN   "
  71. 5050  PRINT " "
  72. 5055  PRINT "AFTER THE PICTURE HAS BEEN LOADED YOU   MUST LOAD APPLESOFT AND THE PROGRAM     AGAIN TO MAKE ANOTHER PICTURE "
  73. 5060  PRINT " "
  74. 5065  PRINT "IF YOU HAVE ANOTHER PICTURE TO LOAD     JUST TYPE 2000.3FFFR AND CONTINUE TO    PLAY THE TAPE"
  75. 5068  FOR X = 1 TO 2000: NEXT 
  76. 5070  CALL 151
  77. 10000  TEXT : HOME 
  78. 10010  PRINT "ON THE BEEP TYPE 4000.5FFFW THEN PUSH PLAY / RECORD AND RETURN"
  79. 10020  PRINT : PRINT "IF YOU WANT TO SAVE THE PICTURE TO DISK TYPE BSAVE (NAME) ,A4000 ,L1FFF,D1 TO 2 ,V0 
  80. 10030  PRINT : PRINT "WHICH DO YOU WANT 1 DISK OR 2 TYPE"
  81. 10040  INPUT V: IF V = 2  THEN 10060
  82. 10050  END 
  83. 10060  PRINT "<CTRL-G>": CALL  -151